home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / GAMETORS / WARRISK.LZH / COMMON.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  2KB  |  82 lines
  1. {The following types and variables will be common to all modules}
  2.  
  3. TYPE
  4.      FWstring=string[255];
  5.      Str10=string[10];
  6.      Str20=string[20];
  7.      Str80=string[80];
  8.      Theastuff=record
  9.                Name:String[15];
  10.                x:integer;
  11.                y:integer;
  12.                max:integer;
  13.                end;
  14.      Ship =    record
  15.                ID:string[10];
  16.                Model:char;   {S=Submarine    D=Destroyer    C=Cruiser
  17.                               B=Battleship   A=Carrier      V=Convoy}
  18.                Status:integer; {Status is undefined}
  19.                Theater:integer; {Theater limitations}
  20.                Attack:integer; {Attack value}
  21.                Defense:integer; {Defense value}
  22.                Damage:integer; {Amount of damage}
  23.                Fleet:integer; {Theater fleet assignment}
  24.                Work1:integer; {Work area 1}
  25.                Work2:integer; {Work area 2}
  26.                end;
  27.       Fleet_Kind = array[1..20] of integer;
  28.  
  29. VAR
  30.     Screen:array[1..24] of string[80];
  31.     Theacnt:integer;
  32.     Source: Text;
  33.     Line:string[80];
  34.     Picname: Str20;
  35.     Name: Str10;
  36.     Victory_Points:integer;
  37.     Victory_Points_to_win:integer;
  38.     Ships:integer;
  39.     Theater:array[1..8] of Theastuff;
  40.     Allied_Name:string[10];
  41.     Axis_Name:string[10];
  42.     Allied_Navy:array[1..20] of Ship;
  43.     Axis_Navy:array[1..20] of Ship;
  44.     Allied_Fleet:array[1..8] of Fleet_Kind;
  45.     Axis_Fleet:array[1..8] of Fleet_Kind;
  46.     Allied_Fleet_Count:array[1..8] of integer;
  47.     Axis_Fleet_Count:array[1..8] of integer;
  48.     Nextprog: File;
  49.     Windx,Windy,Winddx,Winddy:integer;
  50.     theano,theaix,portix,cx,cy,cmax:integer;
  51.     ixloc:char;
  52.     i,j,k,l,m,n:integer;
  53.     c:char;
  54.     quitsw:integer;
  55.     init_factor:real;
  56.  
  57. Procedure FastWrite(stringfld:FWstring; fgatt,bgatt,cursor:integer);
  58.           external 'FWNOST';
  59.  
  60. Procedure Snapshot(option:integer);external 'SNAPNOST';
  61.  
  62.  
  63. Procedure Uncursor;
  64.  
  65. type
  66.   BiosParamType = record
  67.                     ax,bx,cx,dx,bp,si,di,ds,es,flags : integer;
  68.                   end;
  69.  
  70. var
  71.   BiosParam : BiosParamType;
  72.  
  73. begin
  74.   with BiosParam do
  75.   begin
  76.     ax:=$0200;
  77.     dx:=$1900;
  78.     bx:=0;
  79.   end;
  80.   intr($10,BiosParam);
  81. end;
  82.